function FUN_plotDataFreq( data )
%FUN_plotDataFreq Summary of this function goes here
%   Detailed explanation goes here

%% Data preparation and preproccess
% sample time and frequency
% generate time and frequency sequence
size = length(data);
sampletime = 0.01;                                  %sample time that unit is second
ts = sampletime;
t = 0:sampletime:(size-1) * sampletime;             %time point
samplefreq = 1/sampletime;                          %sample frequency that unit is Hz
fs = samplefreq;
f = (0:(size-1))/size*samplefreq;                   %frequency point
fd = f/2;
FontSize = 12;   %12~16

%% Figure configuration
% figure get and setting
figobj = findobj('name','DFT_DCT');
if isempty(figobj)
    figobj = figure('name','DFT_DCT');
end
set(groot,'CurrentFigure',figobj);

%% orignal data analysis
fft_data=fft(data);
fft_data_abs=abs(fft_data);
dct_data=dct(data);
dct_data_abs=abs(dct_data);
dct_data_env = envelope(dct_data_abs,3,'peak');

%% DFT
FUN_figureConfig(figobj,1);
plot(f,fft_data_abs,'k');

%% DCT
FUN_figureConfig(figobj,2);
plot(fd,dct_data_abs,'b',fd,dct_data_env,'r');

end

